C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


” 
ka 
= 
ra 
> 
a 
oe 
os 
os 
a 
co 
oe 
o 
eer 
a 
oa 
oe 
- 
= 


own Mwunwnn 
own MMMM 
nm mn wn 
nn now ww 
mown nn wn 
wm nn un 
nonmn “wn wn 
mm mn nn 
MWuwnmnnw unm 
MMM nw 
usu Wu 
usu wu 
usu uuu ere) 
uu usu Aad ke 
usu uu usu 
Ak Lad wud voted Lt 
udu wil dus 
udu usu ad Ly 


a dd dd ds 
a dd a ds ss 


\e- = = So 
EE 
== 
z= 
z= 
z= 
(sees = = = =e = SS SS 
; x. 
om te 
oo 
oe 
— 


a 
—— 
mi 
oo 
pa ee ee ee eee 
aon 
pe pe 
pe 
an om 
ae 55 
pm pom rm Fem pee pm be be eb be 
Pe aD a aD ae a a ad a ae ae a 
aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aagaaaaagaaaaaaa 
aaaaaagdaadaaaada 
ee ke 
ke 
eee Me a 
ee ee 
ke LA as 
he Ae 
vs A 
he ha 


ee 
eS 


— 2 ww 
Vigwouskv 


nn Munn 
nn nw nn 
nn nn wn 
nn nn nw 
nw nw “nn 
“wn ww ww 
nn nn “ww 
MwMwnn nw 
MmMnn nn 
ee = 
= = 
ee ee ae ag ng nt og ng mw 


LLLLLLLLLL 
LLLLLLLLLL 


P Rea Se NE SR SON Me SN gg ee 


EDTSFPUTMES = format and print a message 19 et 7 90:69:08 


S = format and print a message’ 
ENT = ‘V04-000' 
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A Bliss-32 ig 1 
I SMASTER: Ose FPUTMES.BLI;1 (1) | 


VAX=-11 V4 
DISKSVM CEdT 
' Format Ong ortor ® me 

File: F 
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PUT TMES. §-BL1 Edit: /8S1011 
BEGIN 


PASE SEES SS ESSE SISSIES TT TTT TTC c eC Cee T cet ici cc iat cei iiititiiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is oe te “ictie Ss oie UNDER A LICENSE AND MAY BE USED AND COPIED 
ed oy IN ACCORDANCE WITH THE TERMS OF SUCH Tht AND ae ay 
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is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
s eppokat ite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > etait OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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LRA AERA AERA REAR EAA AAAS | 
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1es | 
FACILITY: EDT -=- The DEC Standard Editor 
ABSTRACT: | 
Format and print a message. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 
MODIFIED BY: 

1-001 - Original. DJS 19-FEB-1981. This module was created by 
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: extracting routine EDTSSFMT_MSG from module FORMAT. 
! 1-002 - Regularize headers. JBS 05-Mar-1981 
1-005 - Add some modifications for EXT mode. iy MB 23-Jun-1982 | 
1-004 = Add reverse video for EXT mode. SMB 02-Jul-1982 
1- Use EDTSSFMT_C CRLF instead of EDTS$O UT OFMTBUF. JBS 05-Jul-198 
; I- $ - Give a bell and reverse video if we'ré in change mode. SMB 22-Jul-1982 
! 1-007 = Remember the Last nies for change mode only if we are reading 
the stertup ¢ elie. 3 
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09 = Remove setting tbieic MSGFLG; done in EDTS$F Fit eRF JBS 06-Oct-1982 
10 = Check for a hardcopy fermi nal before positio oning cursor. STS 14-Dec-1983 
11 = Improve the appearance of the listing. JBS 14- 1983 
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Declarations 14-Sep-1984 12:23:12 


0¢6 XSBTTL ‘Declarations’ 
1 i TABLE OF CONTENTS: 
06¢ i 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSFMT_MSG : NOVALUE; 


Mew 


; INCLUDE FILES: 


MOAI 
——00 


REQUIRE ‘EDTSRC:EDTREQ’; 
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48 i MACROS: 
9650 ; NONE 
O65 ; EQUATED SYMBOLS: 
0654 NONE 
0686 OWN STORAGE: 
0658 NONE 
0860 EXTERNAL REFERENCES: 
0662 i In the routine 
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EDTSFPUTMES EDTSFPUTMES = format and print a message 16-Sep-1984 00:29: VAX-11 Bliss-32 V4.0-74 Page 5 
Ru 00 EDTSSFMT_MSG = format and print a mestege 12286871382 99:53:93 DL EKSVMGHASTER CED? SRCSFPUTMES .BLIs1 «35 
: 150 720 ! If we're in EXT mode, then we're assuming that we got an error here 
; } 1 4 1 and that we want to give a bell. 
; § t § EDTSSSTOP_WKINGMSG (); 
; 155 725 IF ((.EDTS$G_EXT_MOD) OR (.EDTSSG_EDIT_MOD EQL CHANGE_MODE)) 
7 $ 7 $ THEN 
3 : ‘ 4 BEGIN 
; 159 7 4 IF (.EDTS$G_TI_TYP NEQ TERM_HCPY) 
; 160 730 3 THEN 
3; 161 731 4 BEGIN 
; 16¢ 7 ; 4 EDTS$$SC_POSCSIF (.EDTS$G_MESSAGE_LINE + 1, 0); | 
; 16 733 4 EDTS$SC“REVID (); 
3 18¢ 4 3 END; 
; 166 oF 6 IF ( NOT .EDT$$G_QUIET) THEN EDTSSFMT_LIT (UPLIT (7), 1); 
: 168 0738 END; 
; 169 0739 | 
; 170 0740 1+ 
3; «171 0741 ! Save the message number in case it needs to be redisplayed on entering 
; \7¢ 544 ! change mode. 
ee: 074 t= 
3; 1746 0744 
; \% 0748 IF (.EDTS$G_INP_SRC EQL INP_COMMAND) THEN EDTS$$G_LASTMSG = .MESS_NUM; 
: 178 Ope? EDTSS$MSG_TOSTR (.MESS_NUM); | 
3 178 ores EDTSSFMT_CRLF (); 
; 190 o730 IF (.EDTS$G_TI_TYP EQL TERM_VT100) THEN EDTS$$SC_NONREVID (); | 
: 182 0752 1 END; ! of routine EDTSSFMT_MSG | 
-TITLE EDTSFPUTMES EDTSFPUTMES - format and print a me | 
| 
IDENT \v04-000\ | 
-PSECT _EDISCODE,NOWRT, SHR, PIC,2 
00000007 00000 P.AAA: .LONG 7 | 
.EXTRN EDTS$SC_POSCSIF | 
.EXTRN EDTSSSC-REVID, EDT$$SC_NONREVID | 
sEXTRN EDTSSSTOP_WKINGMSG | 
-EXTRN EDTSSFMT_CIT, EDTSSFMT_CRLF 
“EXTRN EDTSSMSG-TOSTR, EDTS$G_TI_TYP 
-EXTRN EDTS$G_MESSAGE LINE 
-EXTRN EDTS$G_EDIT_ MOD 
-EXTRN EDTSS$G_LASTASG, EDT$$G_QUIET 
-EXTRN EDTS$G"EXT_MOD, EDT$$G_INP_SRC | 
0004 00 -ENTRY EDTSSFMT_MSG Saye He ; 0665 
000000006 06 ennneenee 09 Hs $00 CALs EDTSSG IT Tye. NGMSG 07 
6 000000006 00 EB 00010 Blas, EDfs$c EXT_MOD, 13 : $758 


; Routine Size: 
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000000006 
000000006 
000000006 


000000006 


Routine Base: 


1 
1 !<BLF/PAGE> 
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pr19be 99:53:93 Nae sdmGAASteRcceot sacSrpurmes.eui:4° 


D7886_EDIT_MoD 
DISSG_TI_TYP, #3 


j LINE, -(SP) 


ee ED TSSEMT LIT 
Dts G_INP_SRC, #2 


MESS_NUM, EDT$$G_LASTMSG 
MESS. NUM 

, EDTS$MSG_TOSTR 

sf DTSSFMT~CRLF 
i G_TI_TYP, #2 


#0, EDTS$SC_NONREVID 


EDTSFPUTMES DISFPUTMES = format and prin message 18-50 Sep-1984 VAX-11 Bliss-32 V 
04-00 EDISSFAT ASG - format and print a mestege Sep-1 3h 93: $3 3 DISKSVMSMASTER: cb Bi SRCSFPUTMES .BLI:1 37 - 
; 189 OF8e } END ! of module EDTSFPUTMES 
: 1 48 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 130 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
eee eee i ee Symbols -------=- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: EDT. .SRCJEDT.L32;1 377 4 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
° COMMAND QUALIFIERS 
; FL-TSS/CHECROEY SOLD, RET AA, SPT IRS TE) AUDTRACEBACE A, 1901 196 PLIES S/OR SORE TPP UINES MSRC$:FPUTMES.BLI/UPDATE=(ENHS$:FPUTMES 
Size: 126 code + 4 data bytes 
Run Time 211.2 
Fiepsed Hees 0:13.6 


Lines/CPU Min: 404 

Lexemes/CPU-Min: 10818 
ry ¥ Used: 70 pages 

Compilation Complete 
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